home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Programme (19xx)(-)(de)[gt105a].d64 / icon maker (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  28 lines
  1. 90 REM: ICON MAKER--- MYSTIC JIM 11/86
  2. 95 IFQ=0THENQ=1:LOAD"0: SPTMGCOBJ",8,1
  3. 96 SYS49152
  4. 100 POKE53280,6:POKE53281,6:POKE53272,23:PRINT"[147][159]        **** [199][197][207][211] [201]CON [195]HANGER ****":PRINT"     [197]NTER [198]ILENAME FOR [201]CON [195]HANGE:":INPUTA$:FORI=1TO16:B$=B$+CHR$(32):NEXT:A$=LEFT$(A$+B$,16):OPEN15,8,15,"I0":INPUT#15,B$,C$:IFB$<>"00"THENPRINT"DISK ERROR-PLEASE CHECK":GOTO170
  5. 109 OPEN2,8,2,"#":X=18:Y=1
  6. 111 PRINT#15,"U1";2;0;X;Y:A=0:B=2:C=5:PRINT#15,"B-P";2;0:GET#2,D$,L$:X=ASC(D$+CHR$(0)):Y=ASC(L$+CHR$(0))
  7. 117 PRINT#15,"B-P";2;B:GET#2,D$:D$=D$+CHR$(0):IFASC(D$)=0THEN133
  8. 120 PRINT#15,"B-P";2;C:FORI=1TO16:GET#2,E$:IFE$=""THENE$=CHR$(0)
  9. 124 D=ASC(E$):IFD>127THEND=D-128
  10. 126 IFD<32THEND=63
  11. 127 IFD=96ANDD<123THEND=DAND223
  12. 128 IFD=34THEND=63
  13. 129 F$=F$+CHR$(D):NEXT:IFF$=A$THEN138
  14. 132 F$="
  15. 133 A[178]A[170]1:[139]A[178]8[175]X[179][177]0[167]111
  16. 135 [139]A[178]8[175]X[178]0[167][153]"FILE NOT FOUND":[137]170
  17. 136 B[178]B[170]32:C[178]C[170]32:[137]117
  18. 138 [161]#2,G$,H$:E[178][198](G$[170][199](0)):F[178][198](H$[170][199](0)):[152]15,"U1";2;0;E;F:[152]15,"B-P";2;5:[153]"           OLDCLOSE     NEW":[129]I[178]1[164]63:[161]#2,I$:G[178][198](I$[170][199](0)):[151]831[170]I,G:[130]:[151]53269,1:[151]53248,113:[151]53249,147:[151]53287,3:[151]2040,13:[129]I[178]1[164]63:[135]H:[151]895[170]I,H:J$[178]J$[170][199](H):[130]:[151]53269,3:[151]53250,184
  19. 161 [151]53251,147:[151]53288,3:[151]2041,14:[139]K[178]1[167]169
  20. 165 [152]15,"B-P";2;5:[152]2,J$;:[152]15,"U2";2;0;E;F:K[178]1
  21. 169 [153]"ASCINISHED
  22. 170 CLOSE2:CLOSE15
  23. 171 INPUT"[195]HANGE [193]NOTHER [201]CON ([217]/[206])";A$
  24. 172 IFA$<>"Y"THEN:POKE53269,0:STOP:END
  25. 173 A$="":B$="":C$="":D$="":F$="":J$="":E$="":L$="":B=0:C=0:D=0
  26. 174 POKE53269,0:GOTO100
  27. 200 REM: DATA 63 NUMBERS/SPRITE.
  28.